home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / Point / AnimPulsar.rx
Text File  |  2000-04-09  |  251b  |  23 lines
  1. /* Point arexx test 
  2.     Anim Pulsar*/
  3.  
  4.     options results
  5.     parse ARG Port x1 y1 b
  6.     ADDRESS value Port
  7.  
  8.     pp_CountFrames
  9.     nb=result
  10.     IF nb<2 then DO
  11.         pp_Warn 'Make*an*Anim*first.'
  12.         EXIT
  13.     END    
  14.  
  15.     r=20
  16.  
  17.     do i=1 to r
  18.         pp_Circle x1 y1 i
  19.         pp_NextFrame
  20.     end
  21.  
  22.  
  23.